Lollipop Plot description:

  • select movie director with top 10 total gross
  • blue point: lowest gross
  • pink point: highest gross
  • point size: gross
lolli_plt = 
  lolli_df %>% 
  ggplot(aes(x=max_gross,xend=min_gross,y=director_name))+
  geom_dumbbell(colour_x = "#FFB6C1",colour_xend = "#4169E1",size_x = 2,size_xend = 2,size=0.5,color="gray")+
  geom_point(aes(x=max_gross,y=director_name,size=max_gross),alpha=0.5,color="#FFB6C1")+
  geom_point(aes(x=min_gross,y=director_name,size=min_gross),alpha=0.5,color="#4169E1")+
  theme_light()+
  theme(panel.grid.minor.x =element_blank(),
        legend.position = c("none")
        )+
  xlab("Min & Max Gross")

ggplotly(lolli_plt)